home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / Extras / Clone / topfile < prev    next >
Encoding:
Text File  |  1992-10-21  |  1.5 KB  |  105 lines
  1.  
  2. only forth definitions
  3.  
  4. redef? off
  5.  
  6. \  getmodule includes      hidemodule includes
  7.  
  8. .need TASK-TOPFILE
  9.   : TASK-TOPFILE ;
  10. .then
  11.  
  12.  
  13.  
  14. 0 .if
  15.  
  16. include? dbgon jdev:Dbg.f
  17.  
  18. .else
  19.  
  20. variable .debug
  21.  
  22. variable .dbgemit   what's emit .dbgemit !
  23.  
  24. variable USE_NEW_COLON
  25. variable PRINT_COLON_NAME
  26.  
  27. : debugcfa  ( cfa -- cfa' )
  28.   .debug @ 0=
  29.   IF
  30.      drop ' drop
  31.   THEN
  32. ;
  33.  
  34. : dbgon   what's emit dup .dbgemit ! debugcfa  is emit  ;
  35.  
  36. : dbgoff  .dbgemit @ is emit ?pause ;
  37.  
  38. 0 .if
  39. : .me  ( nfa -- )
  40.   .debug @
  41.   IF
  42.      >newline id. ." ..." cr
  43.   ELSE
  44.      drop
  45.   THEN
  46. ;
  47.  
  48. : :
  49.   [compile] :   latest  [compile] aliteral   compile .me
  50. ;
  51. .then
  52.  
  53. .then
  54.  
  55.  
  56.  
  57.  
  58. .NEED INITCLONE
  59.   : INITCLONE ;
  60. .THEN
  61.  
  62. exists? getmodule
  63. hash-state @ not  AND
  64. .if
  65.       include? ModuleFind   ju:ModuleFind
  66. .else
  67.       getmodule includes
  68. .then
  69.  
  70. include? ReLoad        ju:ReLoad
  71. include? logto         ju:Logto
  72. include? ASM           jf:Forward-ASM
  73. include? DynamicStack  ju:StackUtils
  74. include? Examine()     ju:dos-support
  75. include? {             JU:locals
  76.  
  77. \ include? update        ju:Update
  78.  
  79. \ " CL:"  srcdir$  $move
  80. \ " CL2:" DestDir$ $move
  81.  
  82. .NEED TGT
  83.       vocabulary TGT
  84. .THEN
  85.  
  86. also TGT
  87.  
  88.  
  89. include? Calls?       CL:OpSizes.f
  90. include? PFALength?   CL:PFALength.f
  91. include? StartJForth  CL:StartJForth.asm 
  92. include? Redefs       CL:Redefs.f
  93. include? Status?      CL:Status.f
  94. include? PacketFor    CL:Tree.f
  95. include? TargetImage  CL:MemRefs.f
  96. include? Stats        CL:Stats.f
  97. include? Clone        CL:Clone.f
  98. include? Save-Image   CL:SaveImage.f
  99.  
  100.  
  101. only forth definitions
  102.  
  103. redef? on
  104.  
  105.